home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXSCALES.PRG < prev    next >
Text File  |  1991-07-22  |  1KB  |  50 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXSCALES.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. returncode = txinit()
  12. returncode = txreset()
  13.  
  14. _company   = "Texas Associated Software"
  15.  
  16. _points = 10
  17. FOR I = 1 TO 30 STEP 2
  18.    txscalable("C", .F., "U", _points)
  19.    txcolprint( I, 10, .T., _company)
  20.    _points = _points + 2
  21. NEXT
  22.  
  23. _points = _points - 2
  24. FOR I = 32 TO 62 STEP 2
  25.    txscalable("U", .F., "I", _points)
  26.    txcolprint( I, 10, .T., _company)
  27.    _points = _points - 2
  28. NEXT
  29.  
  30. txorient("L")             && this will print current page before
  31. && setting new orientation
  32.  
  33. _points = 10
  34. FOR I = 1 TO 20 STEP 2
  35.    txscalable("C", .F., "U", _points)
  36.    txcolprint( I, 10, .T., _company)
  37.    _points = _points + 2
  38. NEXT
  39.  
  40. _points = _points - 2
  41. FOR I = 22 TO 42 STEP 2
  42.    txscalable("U", .F., "I", _points)
  43.    txcolprint( I, 10, .T., _company)
  44.    _points = _points - 2
  45. NEXT
  46.  
  47. txclear()
  48.  
  49. *: EOF: TXSCALES.PRG
  50.